home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / READINTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  784 b   |  44 lines
  1. PROGRAM read_integers_from_file;
  2.  
  3. VAR cupcake : TEXT;
  4.     index   : BYTE;
  5.     var1,var2,var3,var4,var5 : INTEGER;
  6.  
  7. BEGIN
  8.  
  9. ASSIGN(cupcake,'INTDATA.TXT');
  10. RESET(cupcake);
  11.  
  12. FOR index := 1 TO 5 DO
  13. BEGIN
  14.   READ(cupcake,var1,var2,var3);
  15.   WRITELN(var1:6,var2:6,var3:6);
  16. END;
  17.  
  18. RESET(cupcake);
  19. WRITELN;
  20. FOR index := 1 TO 5 DO
  21. BEGIN
  22.   READLN(cupcake,var1,var2,var3);
  23.   WRITELN(var1:6,var2:6,var3:6);
  24. END;
  25.  
  26. RESET(cupcake);
  27. WRITELN;
  28. FOR index := 1 TO 5 DO
  29. BEGIN
  30.   READ(cupcake,var1,var2,var3,var4,var5);
  31.   WRITELN(var1:6,var2:6,var3:6,var4:6,var5:6);
  32. END;
  33.  
  34. RESET(cupcake);
  35. WRITELN;
  36. FOR index := 1 TO 5 DO
  37. BEGIN
  38.   READLN(cupcake,var1,var2,var3,var4,var5);
  39.   WRITELN(var1:6,var2:6,var3:6,var4:6,var5:6);
  40. END;
  41. CLOSE(cupcake);
  42.  
  43. END. (* of main program *)
  44.